home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Functions & Programs / •Gadgets / Parameters <-> Data Window (1) < prev    next >
Text File  |  1996-06-01  |  1KB  |  55 lines
  1. {
  2.     The two programs defined here can be used to transfer parameters from
  3.     the Parameter window to a data window and from a data window to the
  4.     Parameter window.
  5.     
  6.     Param_ToDataWindow1 takes the numbers in the parameter
  7.     window and copies them into a column of a data window.
  8.     
  9.     DataWindow_ToParam1 takes a column from a data
  10.     window and copies it into the parameter window.
  11.  
  12.  To use these programs, first click the button "Add" above, then
  13.  choose them from the Misc menu.
  14. }
  15.  
  16.  
  17.  
  18. {*****************************************************************}
  19. program Param_ToDataWindow1;
  20.  
  21. var i, dataWindow, column: integer;
  22.  
  23. procedure Initialize; { default values for variables }
  24. begin
  25.   dataWindow := 0;
  26.   column := 1;
  27. end;
  28.  
  29. begin
  30.  Input('$WData window', dataWindow, '$CColumn', column);
  31.  SetCurrentWindow(dataWindow);
  32.  for i:=1 to  GetNumFunctionParams('') do
  33.          data[i,column]:= GetFunctionParam('', i)
  34. end;
  35.  
  36.  
  37.  
  38. {*****************************************************************}
  39. program DataWindow_ToParam1;
  40.  
  41. var i, dataWindow, column:integer;
  42.  
  43. procedure Initialize; { default values for variables }
  44. begin
  45.   dataWindow := 0;
  46.   column := 1;
  47. end;
  48.  
  49. begin
  50.  Input('$WData window', dataWindow, '$CColumn', column);
  51.  SetCurrentWindow(dataWindow);
  52.  for i:=1 to  GetNumFunctionParams('') do
  53.           if Dataok(i,column) then
  54.                SetFunctionParam('', i, data[i,column]);
  55. end;